﻿Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Linq
Imports System.IO

Partial Class Sistema_CAPPersonasImprimir
    Inherits System.Web.UI.Page
    Dim editar As Boolean
    Dim Edad As Integer
    Dim mensaje As String
    Dim Exepcion As String
    Dim NumeroError As Integer
    Public iderespuesta As Integer
    Dim actualizar As Integer
    Dim parentesco As Integer

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        hdIdPersona.Value = Request.QueryString.Item("idPersona")
        If hdIdPersona.Value = 0 Then
            Try

                Using bd As New BdHogaresDataContext
                    Dim a = (From i In bd.Web_CapPersonas
                              Select i.idPersona).Max
                    hdIdPersona.Value = a.ToString
                End Using

            Catch ex As Exception
                Throw ex
            End Try

        End If

        traerPersona()
        editar = True

    End Sub



#Region "cargar Datos"
    Function LlenarItems(ByVal valor As Integer, ByVal pregunta As String) As String
        Using cnn As New SqlConnection(ConfigurationManager.ConnectionStrings("CNNdb").ConnectionString)
            cnn.Open()
            Using cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand("usp_OpcionesListarConValor", cnn)
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.AddWithValue("@categoria", pregunta)
                cmd.Parameters.AddWithValue("@valoropcion", valor)
                Using drDatos As SqlDataReader = cmd.ExecuteReader
                    While drDatos.Read()
                        Dim a = drDatos.Item(0)
                        Return a
                        cnn.Close()
                    End While
                End Using

            End Using
        End Using
    End Function


    Sub traerPersona() 'carga los controles con los datos de la bd
        Using bd As New BdHogaresDataContext
            Dim a = From i In bd.Web_CapPersonas
                      Where i.idPersona = hdIdPersona.Value
                      Select i
            Dim Persona As New Web_CapPersona
            Persona = a.FirstOrDefault()
            txthistoriaclinica.Text = IIf(IsDBNull(Persona.txthistoriaclinica), "", Persona.txthistoriaclinica)
            txtfechaatencion.Text = IIf(IsDBNull(Persona.txtfechaatencion), "", Persona.txtfechaatencion)
            txtapellidos.Text = IIf(IsDBNull(Persona.txtapellidos), "", Persona.txtapellidos)
            txtNombres.Text = IIf(IsDBNull(Persona.txtNombres), "", Persona.txtNombres)
            rbTipodedocumento.Text = LlenarItems(Persona.rbTipodedocumento, "tipodocumento")
            txtNumerodedocumento.Text = IIf(IsDBNull(Persona.txtNumerodedocumento), "", Persona.txtNumerodedocumento)

            Using bda As New BdHogaresDataContext
                Dim ad = From id In bda.Municipios
                            Where id.CodMunicipio = Persona.Municipionacimiento
                           Select id.Municipio
                Municipionacimiento.Text = ad.First()
            End Using

            txtfechadenacimiento.Text = IIf(IsDBNull(Persona.txtfechadenacimiento), "", Persona.txtfechadenacimiento)
            rbsexo.Text = LlenarItems(Persona.rbsexo, "sexo")


            rbculturareconocecomo.Text = LlenarItems(Persona.rbculturareconocecomo, "culturareconocecomo")
            txtculturareconocecomo.Text = IIf(IsDBNull(Persona.txtculturareconocecomo), "", Persona.txtculturareconocecomo)
            rbculturapuebloorigen.Text = LlenarItems(Persona.rbculturapuebloorigen, "CulturaLenguaPueblo")
            txtgrupoindigena.Text = IIf(IsDBNull(Persona.txtgrupoindigena), "", Persona.txtgrupoindigena)



            rbEstudiaActualmente.Text = IIf(Persona.rbEstudiaActualmente = 1, "Sí", "No")

            Select Case Persona.ddEscolaridad
                Case 1
                    ddEscolaridad.Text = "Ninguna"
                Case 2
                    ddEscolaridad.Text = "Preescolar"
                Case 3
                    ddEscolaridad.Text = "Básica Primaria"
                Case 4
                    ddEscolaridad.Text = "Básica Secundaria"
                Case 5
                    ddEscolaridad.Text = "Media"
                Case 6
                    ddEscolaridad.Text = "Técnica"
                Case 7
                    ddEscolaridad.Text = "Tecnológica"
                Case 8
                    ddEscolaridad.Text = "Universitaria"
                Case 9
                    ddEscolaridad.Text = "Posgrado"
            End Select


            Select Case Persona.ddEstadoCivil
                Case 1
                    ddEstadoCivil.Text = "Soltero"
                Case 2
                    ddEstadoCivil.Text = "Casado"
                Case 3
                    ddEstadoCivil.Text = "Unión libre"
                Case 4
                    ddEstadoCivil.Text = "Divorciado"
                Case 5
                    ddEstadoCivil.Text = "Viudo"
                Case 6
                    ddEstadoCivil.Text = "Religioso"

            End Select


            Select Case Persona.txtocupacion
                Case 1
                    txtocupacion.Text = "Empleado"
                Case 2
                    txtocupacion.Text = "Informal"
                Case 3
                    txtocupacion.Text = "Hogar"
                Case 4
                    txtocupacion.Text = "Estudiante"
                Case 5
                    txtocupacion.Text = "Ninguna actividad"
            End Select


            rbtipoafiliacion.Text = LlenarItems(Persona.rbtipoafiliacion, "TipoAfiliacion")
            ddltipoafiliacionotro.Text = LlenarItems(Persona.ddltipoafiliacionotro, "otroafiliacionsalud")
            If ddltipoafiliacionotro.Text = "Seleccione..." Then
                ddltipoafiliacionotro.Text = ""
            End If


            txtnombreeps.Text = IIf(IsDBNull(Persona.txtnombreeps), "", Persona.txtnombreeps)
            txtnombreips.Text = IIf(IsDBNull(Persona.txtnombreips), "", Persona.txtnombreips)

          
            Using bda As New BdHogaresDataContext
                Dim ad = From id In bda.Municipios
                            Where id.CodMunicipio = Persona.Municipioafiliacion
                           Select id.Municipio
                Municipioafiliacion.Text = ad.First()
            End Using

            rbLocalizacion.Text = LlenarItems(Persona.rbLocalizacion, "Ubicacion")
            txtDireccion.Text = IIf(IsDBNull(Persona.txtDireccion), "", Persona.txtDireccion)
            txtBarrio.Text = IIf(IsDBNull(Persona.txtBarrio), "", Persona.txtBarrio)
            txtComuna.Text = IIf(IsDBNull(Persona.txtComuna), "", Persona.txtComuna)
            txtCorregimiento.Text = IIf(IsDBNull(Persona.txtCorregimiento), "", Persona.txtCorregimiento)
            txtVereda.Text = IIf(IsDBNull(Persona.txtVereda), "", Persona.txtVereda)
            txttelefonoresidencia.Text = IIf(IsDBNull(Persona.txttelefonoresidencia), "", Persona.txttelefonoresidencia)
            rbestratosocioeconomico.Text = LlenarItems(Persona.rbestratosocioeconomico, "estrato")

            rbtenenciavivienda.Text = LlenarItems(Persona.rbtenenciavivienda, "tenenciavivienda")
            txtrbtenenciavivienda.Text = IIf(IsDBNull(Persona.txtrbtenenciavivienda), "", Persona.txtrbtenenciavivienda)
            rbtipovivienda.Text = LlenarItems(Persona.rbtipovivienda, "tipovivienda")
            txttipovivienda.Text = IIf(IsDBNull(Persona.txttipovivienda), "", Persona.txttipovivienda)


            Select Case Persona.ddtipopoblacion
                Case 1
                    ddtipopoblacion.Text = "Desplazado Certificado"
                Case 2
                    ddtipopoblacion.Text = "Desplazado No Certificado"
                Case 3
                    ddtipopoblacion.Text = "Vulnerable"

            End Select

            rbremitido.Text = IIf(Persona.rbremitido = 1, "Sí", "No")
            txtprofesionalqueremite.Text = IIf(IsDBNull(Persona.txtprofesionalqueremite), "", Persona.txtprofesionalqueremite)
            txtcargo.Text = IIf(IsDBNull(Persona.txtcargo), "", Persona.txtcargo)
            txtinstitucion.Text = IIf(IsDBNull(Persona.txtinstitucion), "", Persona.txtinstitucion)
            txtserviciosolicitado.Text = IIf(IsDBNull(Persona.txtserviciosolicitado), "", Persona.txtserviciosolicitado)
            txtmotivoremision.Text = IIf(IsDBNull(Persona.txtmotivoremision), "", Persona.txtmotivoremision)

            Cbsintomatologia1.Text = IIf(Persona.Cbsintomatologia1 = 0, Cbsintomatologia1.Text, Cbsintomatologia1.Text & " X")
            Cbsintomatologia2.Text = IIf(Persona.Cbsintomatologia2 = 0, Cbsintomatologia2.Text, Cbsintomatologia2.Text & " X")
            Cbsintomatologia3.Text = IIf(Persona.Cbsintomatologia3 = 0, Cbsintomatologia3.Text, Cbsintomatologia3.Text & " X")
            Cbsintomatologia4.Text = IIf(Persona.Cbsintomatologia4 = 0, Cbsintomatologia4.Text, Cbsintomatologia4.Text & " X")
            Cbsintomatologia5.Text = IIf(Persona.Cbsintomatologia5 = 0, Cbsintomatologia5.Text, Cbsintomatologia5.Text & " X")
            Cbsintomatologia6.Text = IIf(Persona.Cbsintomatologia6 = 0, Cbsintomatologia6.Text, Cbsintomatologia6.Text & " X")
            Cbsintomatologia7.Text = IIf(Persona.Cbsintomatologia7 = 0, Cbsintomatologia7.Text, Cbsintomatologia7.Text & " X")
            Cbsintomatologia8.Text = IIf(Persona.Cbsintomatologia8 = 0, Cbsintomatologia8.Text, Cbsintomatologia8.Text & " X")
            Cbsintomatologia9.Text = IIf(Persona.Cbsintomatologia9 = 0, Cbsintomatologia9.Text, Cbsintomatologia9.Text & " X")
            Cbsintomatologia10.Text = IIf(Persona.Cbsintomatologia10 = 0, Cbsintomatologia10.Text, Cbsintomatologia10.Text & " X")
            Cbsintomatologia11.Text = IIf(Persona.Cbsintomatologia11 = 0, Cbsintomatologia11.Text, Cbsintomatologia11.Text & " X")
            Cbsintomatologia12.Text = IIf(Persona.Cbsintomatologia12 = 0, Cbsintomatologia12.Text, Cbsintomatologia12.Text & " X")
            Cbsintomatologia13.Text = IIf(Persona.Cbsintomatologia13 = 0, Cbsintomatologia13.Text, Cbsintomatologia13.Text & " X")
            Cbsintomatologia14.Text = IIf(Persona.Cbsintomatologia14 = 0, Cbsintomatologia14.Text, Cbsintomatologia14.Text & " X")
            Cbsintomatologia15.Text = IIf(Persona.Cbsintomatologia15 = 0, Cbsintomatologia15.Text, Cbsintomatologia15.Text & " X")
            Cbsintomatologia16.Text = IIf(Persona.Cbsintomatologia16 = 0, Cbsintomatologia16.Text, Cbsintomatologia16.Text & " X")
            Cbsintomatologia17.Text = IIf(Persona.Cbsintomatologia17 = 0, Cbsintomatologia17.Text, Cbsintomatologia17.Text & " X")
            Cbsintomatologia18.Text = IIf(Persona.Cbsintomatologia18 = 0, Cbsintomatologia18.Text, Cbsintomatologia18.Text & " X")
            Cbsintomatologia19.Text = IIf(Persona.Cbsintomatologia19 = 0, Cbsintomatologia19.Text, Cbsintomatologia19.Text & " X")
            Cbsintomatologia20.Text = IIf(Persona.Cbsintomatologia20 = 0, Cbsintomatologia20.Text, Cbsintomatologia20.Text & " X")
            Cbsintomatologia21.Text = IIf(Persona.Cbsintomatologia21 = 0, Cbsintomatologia21.Text, Cbsintomatologia21.Text & " X")
            Cbsintomatologia22.Text = IIf(Persona.Cbsintomatologia22 = 0, Cbsintomatologia22.Text, Cbsintomatologia22.Text & " X")
            Cbsintomatologia23.Text = IIf(Persona.Cbsintomatologia23 = 0, Cbsintomatologia23.Text, Cbsintomatologia23.Text & " X")
            Cbfactoresriesgo1.Text = IIf(Persona.Cbfactoresriesgo1 = 0, Cbfactoresriesgo1.Text, Cbfactoresriesgo1.Text & " X")
            Cbfactoresriesgo2.Text = IIf(Persona.Cbfactoresriesgo2 = 0, Cbfactoresriesgo2.Text, Cbfactoresriesgo2.Text & " X")
            Cbfactoresriesgo3.Text = IIf(Persona.Cbfactoresriesgo3 = 0, Cbfactoresriesgo3.Text, Cbfactoresriesgo3.Text & " X")
            Cbfactoresriesgo4.Text = IIf(Persona.Cbfactoresriesgo4 = 0, Cbfactoresriesgo4.Text, Cbfactoresriesgo4.Text & " X")
            Cbfactoresriesgo5.Text = IIf(Persona.Cbfactoresriesgo5 = 0, Cbfactoresriesgo5.Text, Cbfactoresriesgo5.Text & " X")
            Cbfactoresriesgo6.Text = IIf(Persona.Cbfactoresriesgo6 = 0, Cbfactoresriesgo6.Text, Cbfactoresriesgo6.Text & " X")
            Cbfactoresriesgo7.Text = IIf(Persona.Cbfactoresriesgo7 = 0, Cbfactoresriesgo7.Text, Cbfactoresriesgo7.Text & " X")
            Cbfactoresriesgo8.Text = IIf(Persona.Cbfactoresriesgo8 = 0, Cbfactoresriesgo8.Text, Cbfactoresriesgo8.Text & " X")
            Cbfactoresriesgo9.Text = IIf(Persona.Cbfactoresriesgo9 = 0, Cbfactoresriesgo9.Text, Cbfactoresriesgo9.Text & " X")
            Cbfactoresriesgo10.Text = IIf(Persona.Cbfactoresriesgo10 = 0, Cbfactoresriesgo10.Text, Cbfactoresriesgo10.Text & " X")
            Cbfactoresriesgo11.Text = IIf(Persona.Cbfactoresriesgo11 = 0, Cbfactoresriesgo11.Text, Cbfactoresriesgo11.Text & " X")
            Cbfactoresriesgo12.Text = IIf(Persona.Cbfactoresriesgo12 = 0, Cbfactoresriesgo12.Text, Cbfactoresriesgo12.Text & " X")
            Cbfactoresriesgo13.Text = IIf(Persona.Cbfactoresriesgo13 = 0, Cbfactoresriesgo13.Text, Cbfactoresriesgo13.Text & " X")
            Cbfactoresriesgo14.Text = IIf(Persona.Cbfactoresriesgo14 = 0, Cbfactoresriesgo14.Text, Cbfactoresriesgo14.Text & " X")
            Cbfactoresriesgo15.Text = IIf(Persona.Cbfactoresriesgo15 = 0, Cbfactoresriesgo15.Text, Cbfactoresriesgo15.Text & " X")
            Cbfactoresriesgo16.Text = IIf(Persona.Cbfactoresriesgo16 = 0, Cbfactoresriesgo16.Text, Cbfactoresriesgo16.Text & " X")
            Cbfactoresriesgo17.Text = IIf(Persona.Cbfactoresriesgo17 = 0, Cbfactoresriesgo17.Text, Cbfactoresriesgo17.Text & " X")
            Cbfactoresriesgo18.Text = IIf(Persona.Cbfactoresriesgo18 = 0, Cbfactoresriesgo18.Text, Cbfactoresriesgo18.Text & " X")
            Cbfactoresriesgo19.Text = IIf(Persona.Cbfactoresriesgo19 = 0, Cbfactoresriesgo19.Text, Cbfactoresriesgo19.Text & " X")
            Cbfactoresriesgo20.Text = IIf(Persona.Cbfactoresriesgo20 = 0, Cbfactoresriesgo20.Text, Cbfactoresriesgo20.Text & " X")
            Cbfactoresriesgo21.Text = IIf(Persona.Cbfactoresriesgo21 = 0, Cbfactoresriesgo21.Text, Cbfactoresriesgo21.Text & " X")
            Cbfactoresriesgo22.Text = IIf(Persona.Cbfactoresriesgo22 = 0, Cbfactoresriesgo22.Text, Cbfactoresriesgo22.Text & " X")
            Cbfactoresriesgo23.Text = IIf(Persona.Cbfactoresriesgo23 = 0, Cbfactoresriesgo23.Text, Cbfactoresriesgo23.Text & " X")
            Cbfactoresriesgo24.Text = IIf(Persona.Cbfactoresriesgo24 = 0, Cbfactoresriesgo24.Text, Cbfactoresriesgo24.Text & " X")
            rbreferencia.Text = IIf(Persona.rbreferencia = 1, "Referencia", "Contrareferencia")


            txtlogroterapeutico.Text = IIf(IsDBNull(Persona.txtlogroterapeutico), "", Persona.txtlogroterapeutico)
            rbmotivocierre.Text = LlenarItems(Persona.rbmotivocierre, "motivocierre")

            txtfechacierre.Text = IIf(IsDBNull(Persona.txtfechacierre), "", Persona.txtfechacierre)
            txtnombreterapeuta.Text = IIf(IsDBNull(Persona.txtnombreterapeuta), "", Persona.txtnombreterapeuta)
            txtcedula.Text = IIf(IsDBNull(Persona.txtcedula), "", Persona.txtcedula)

            rbpertenecegurpoetnico.Text = IIf(Persona.rbpertenecegurpoetnico = 1, "Sí", "No")

            txtañoscumplidos.Text = IIf(IsDBNull(Persona.txtañoscumplidos), "", Persona.txtañoscumplidos)
            txtgenograma.Text = IIf(IsDBNull(Persona.txtgenograma), "", Persona.txtgenograma)
            txtcie10.Text = IIf(IsDBNull(Persona.txtcie10), "", Persona.txtcie10)


        End Using
    End Sub
#End Region

    Protected Sub btnregresar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnregresar.Click
        Response.Redirect("InicioCAP.aspx")
    End Sub
End Class